home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / isshare.zip / ISSHARE.BAS next >
BASIC Source File  |  1991-03-01  |  3KB  |  45 lines
  1.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3.         ':::                                                                 :::
  4.         ':::                                                                 :::
  5.         ':::    PROGRAM:        SHARE.BAS                                    :::
  6.         ':::    AUTHOR:         Mike Shaffer                                 :::
  7.         ':::    DATE:           Feb 2, 1991                                  :::
  8.         ':::    VERSION:        2.0                                          :::
  9.         ':::    PURPOSE:        Tests the ISSHARE.SUB subroutine             :::
  10.         ':::    REVISIONS:                                                   :::
  11.         ':::                                                                 :::
  12.         ':::                                                                 :::
  13.         ':::                                                                 :::
  14.         ':::    NOTES:          This program assumes you're using PDQ from   :::
  15.         ':::                    Crescent Software. If not (shame on you!)    :::
  16.         ':::                    than you can modify the interrupt call to    :::
  17.         ':::                    use INT86 as provided with QuickBASIC, and   :::
  18.         ':::                    take out the reference to PDQDECL.BAS        :::
  19.         ':::                                                                 :::
  20.         ':::                    Compile using:                               :::
  21.         ':::                                                                 :::
  22.         ':::                         BC ISSHARE/o/s;                         :::
  23.         ':::                         LINK /NOD/NOE ISSHARE,,,pdq[386].lib    :::
  24.         ':::                                                                 :::
  25.         ':::                    or similar...                                :::
  26.         ':::                                                                 :::
  27.         ':::                                                                 :::
  28.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  29.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  30.         '
  31.         '$include: 'pdqdecl.bas'
  32.  
  33.  
  34.         call    ISSHARE(a%)
  35.         if a% then
  36.            print "DOS reports that SHARE is loaded..."
  37.         else
  38.            print "SHARE is apparently not loaded..."
  39.         endif
  40.         end
  41.  
  42.  
  43.         '$include: 'ISSHARE.SUB'
  44.  
  45.